home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 076-100 / disk_097 / splines / sprt.c < prev   
C/C++ Source or Header  |  1992-05-06  |  8KB  |  249 lines
  1. /* The routines in this file are copyright (c) 1987 by Helene (Lee) Taran.
  2.  * Permission is granted for use and free distribution as long as the
  3.  * original author's name is included with the code.
  4.  */
  5.  
  6. #include "spline.h"
  7.  
  8. struct IntuitionBase *IntuitionBase; 
  9. struct GfxBase *GfxBase;
  10. struct LayersBase *LayersBase;
  11.  
  12. void *OpenLibrary();
  13. void *OpenWindow();
  14. void *OpenScreen();
  15.  
  16. USHORT pointimage[] =  /* what a control point will look like */
  17.    {0x0000, 0x0000, 0x1c00, 0x3e00, 0x3e00, 0x3e00, 0x1c00 };
  18.  
  19. struct Image control_image = 
  20.  { -4,-4,7,7, 1, &pointimage[0], 0x1, 0x0, NULL};
  21.  
  22. USHORT ColorTable[COLORCOUNT] =   /* Here are the actual colors used      */
  23.     {  
  24.      0x0000,  /* black */
  25.      0x0063,  /* greenish */
  26.      0x0f24,  /* redish  */
  27.      0x000f,  /* blue */
  28.     };
  29.  
  30. struct NewWindow WindowInfo =
  31. { WINDOW_LEFT,              /* Left Edge                               */
  32.   WINDOW_TOP,               /* Top Edge                                */
  33.   WINDOW_WIDTH,             /* Initial Width       (640 =Hires)        */
  34.   WINDOW_HEIGHT,            /* Initial Height      (400 = interlaced)  */
  35.   -1,                       /* DetailPen   (-1 = use screen's)         */
  36.   -1,                       /* BlockPen    (-1 = use screen's)         */
  37.   MOUSEBUTTONS | CLOSEWINDOW , /* <-- IDCMP flags; \/ window flags     */    
  38.   SMART_REFRESH | WINDOWCLOSE| ACTIVATE | REPORTMOUSE,
  39.   NULL,                             /* First Gadget                    */
  40.   NULL,                             /* CheckMark    (used with menus)  */
  41.   (UBYTE *)"Splines",               /* Title                           */
  42.   NULL,                             /* Screen       (null = default)   */
  43.   NULL,                             /* BitMap                          */
  44.   1,                                /* MinWidth   (0 = initial value)  */
  45.   1,                                /* MinHeight  (0 = initial value)  */
  46.   0,                                /* MaxWidth   (0 = initial value)  */
  47.   0,                                /* MaxHeight  (0 = initial value)  */
  48.   CUSTOMSCREEN,                     /* Type                            */
  49. };
  50.  
  51.  
  52. /* The following structure gives all the information that Intuition
  53.  * needs to maintain a customized screen.
  54.  */
  55. struct NewScreen ScreenInfo =
  56. { 
  57.   0,0,                               /* Left Edge, Top Edge   */
  58.   SCREEN_WIDTH,SCREEN_HEIGHT,        /* Screen Width & Height */
  59.   DEPTH,                             /* Number of bit-planes  */
  60.   DETAILPEN,                         /* Detail Pen color register */
  61.   BLOCKPEN,                          /* Background color register */
  62.   VIEWMODE,                          /* ViewMode */
  63.   CUSTOMSCREEN,                      /* Type */
  64.   NULL,                              /* Font : null = use default */
  65.   (UBYTE *)"Splines and PopUp Menus:   by Lee Taran",  /* Screen Title */
  66.   NULL,                              /* Gadgets */
  67.   NULL                               /* CustomBitMap */
  68. };
  69.  
  70. /* Bits to keep track of anything that must eventually be deallocated */
  71. int OpenBits = 0x0000;
  72.  
  73. /* Intuition structures that will be used to setup the background
  74.  * environment. 
  75.  */
  76. struct Window *Window;
  77. struct Screen *Screen;
  78. struct Layer_Info *Layer_Info;
  79.  
  80. struct PopUp_Menu PointMenu, CurveMenu;
  81. struct PopUp_Item PointItem[] = {
  82.   { "Add Point After",  ADD_AFTER,   1,1,0,0,DETAILPEN,NULL},
  83.   { "Add Point Before", ADD_BEFORE,  1,2,0,0,DETAILPEN,NULL},
  84.   { "Move This Point",  MOVE_POINT,  1,2,0,0,DETAILPEN,NULL},
  85.   { "Remove This Point",REMOVE_POINT,1,2,0,0,DETAILPEN,NULL}
  86. };
  87.  
  88. struct PopUp_Item CurveItem[] = {
  89.  { "Open B-Spline Natural Ends", OPENB_NATURAL, 1,2,0,0,DETAILPEN,NULL},
  90.  { "Open B-Spline Triple Knots", OPENB_TRIPLE,  1,2,0,0,DETAILPEN,NULL},
  91.  { "Open Interpolating Spline",  OPEN_INTRPL,   1,2,0,0,DETAILPEN,NULL},
  92.  { "Closed B-Spline",            CLOSEDB,       1,2,0,0,DETAILPEN,NULL},
  93.  { "Closed Interpolating Spline",CLOSED_INTRPL, 1,2,0,0,DETAILPEN,NULL},
  94.  { "Toggle AFrame",              TOGGLEAFRAME,  1,2,0,0,DETAILPEN,NULL},
  95.  { "Redraw",                     REDRAW,        1,2,0,0,DETAILPEN,NULL} ,
  96.  { "  GET ME OUT OF HERE!!",     QUIT,          1,5,0,0,OUTLINEPEN,NULL},
  97. };
  98.  
  99.  
  100. Init_PointMenu ()
  101. { 
  102.   PointItem[0].next = &PointItem[1];
  103.   PointItem[1].next = &PointItem[2];
  104.   PointItem[2].next = &PointItem[3];
  105.   
  106.   PointMenu.depth = 2;
  107.   PointMenu.width = 100;   /* minimum width */
  108.   PointMenu.deactivate = SELECTUP;
  109.   PointMenu.outline_color = OUTLINEPEN;
  110.   PointMenu.area_color = BLOCKPEN;
  111.   PointMenu.first_item = &PointItem[0];
  112.   if (!Init_PopUp_Menu(&PointMenu)) panic(POPUP_MENU);
  113. }
  114.  
  115.  
  116. Init_CurveMenu ()
  117. { 
  118.   CurveItem[0].next = &CurveItem[1];
  119.   CurveItem[1].next = &CurveItem[2];
  120.   CurveItem[2].next = &CurveItem[3];
  121.   CurveItem[3].next = &CurveItem[4]; 
  122.   CurveItem[4].next = &CurveItem[5]; 
  123.   CurveItem[5].next = &CurveItem[6]; 
  124.   CurveItem[6].next = &CurveItem[7]; 
  125.     
  126.   CurveMenu.depth = 2;
  127.   CurveMenu.width = 100;   /* minimum width */
  128.   CurveMenu.deactivate = SELECTUP;
  129.   CurveMenu.outline_color = OUTLINEPEN;
  130.   CurveMenu.area_color = BLOCKPEN;
  131.   CurveMenu.first_item = &CurveItem[0];
  132.   if (!Init_PopUp_Menu(&CurveMenu)) panic(POPUP_MENU);
  133.  
  134. }
  135.  
  136.  
  137. OpenLibraries ()
  138. {
  139.   /* Open the Intuition library -- connect to the routines in ROM 
  140.    * If the result is NULL then something went wrong so exit immediately
  141.    */
  142.   if (!(IntuitionBase = (struct IntuitionBase *) 
  143.            OpenLibrary("intuition.library",INTUITION_VERSION)))
  144.      panic(INTUITION);
  145.   else OpenBits |= INTUITION;
  146.   
  147.   /* Open the Graphics Library -- so that we can use the bit-map
  148.    * facilities of our window.
  149.    */
  150.  if (!(GfxBase = (struct GfxBase *)
  151.      OpenLibrary("graphics.library",GFX_VERSION)))
  152.      panic(GRAPHICS);
  153.   else OpenBits |= GRAPHICS;
  154.  
  155.  if (!(LayersBase = (struct LayersBase *)
  156.      OpenLibrary("layers.library",LAYERS_VERSION)))
  157.      panic(LAYERS);
  158.  else OpenBits |= LAYERS;
  159. }  
  160.  
  161.  
  162. /* SetupEnvironment : initializes the screen and window that 
  163.  * will be used. Assumes that all libraries have already been opened
  164.  */ 
  165. SetupEnvironment()
  166. { struct RastPort *RPort;
  167.  
  168.  if (!Init_MenuPackage()) panic(MENU_PACKAGE);
  169.  Init_PointMenu();
  170.  Init_CurveMenu();
  171.  
  172.   /* Open a customized Screen */
  173.   if (!(Screen = (struct Screen *)OpenScreen(&ScreenInfo)))
  174.      panic(SCREEN);
  175.   else OpenBits |= SCREEN;
  176.  
  177.   WindowInfo.Screen = Screen;
  178.   
  179.   /* Open A window in the new Window */
  180.   if (!(Window = (struct Window *)OpenWindow(&WindowInfo)))
  181.      panic(WINDOW);
  182.   else OpenBits |= WINDOW;
  183.  
  184.   /* set up window colors */
  185.   LoadRGB4(ViewPortAddress(Window),&ColorTable,COLORCOUNT);
  186.  
  187.   SetRast(Window->RPort,ERASE); /* wipe out everything -- no title bar */
  188. }
  189.  
  190.  
  191. /* panic: Prints out an error message about what went wrong during the
  192.  * setup/initialization phase of this program and ends the program
  193.  * gracefully by calling close_things before exiting with an error code
  194.  */
  195. panic(error_code)
  196. int error_code;
  197. {
  198.   switch (error_code) 
  199.    {
  200.      case LAYERS     :
  201.           fprintf(stderr,"splines: couldn't open layers library [%d]\n",
  202.                           LAYERS_VERSION);
  203.           break;
  204.      case POPUP_MENU :
  205.           fprintf(stderr,"splines: couldn't allocate popup menu\n");
  206.           break;
  207.      case MENU_PACKAGE :
  208.           fprintf(stderr,"splines: couldn't initialize menu package\n");
  209.           break;
  210.      case INTUITION : 
  211.           fprintf(stderr,"splines: couldn't find Intuition Library [%d]\n",
  212.                          INTUITION_VERSION);
  213.           break;
  214.      case GRAPHICS  : 
  215.           fprintf(stderr,"splines: couldn't find Graphics Library [%d]\n",
  216.                           GFX_VERSION);
  217.           break;
  218.      case SCREEN    :
  219.           fprintf(stderr,"splines: couldn't open Custom Screen.\n");
  220.           break;
  221.      case WINDOW    : 
  222.           fprintf(stderr,"splines: couldn't open Window.\n");
  223.           break;
  224.    }
  225.  
  226.   close_things();
  227.   exit(error_code);
  228. }
  229.  
  230.  
  231.  
  232.  
  233. /* close_things : closes the Libraries that have been opened and
  234.  * frees up whatever memory has been used.
  235.  */
  236. close_things()
  237. {
  238.   Dispose_PopUp(&PointMenu);
  239.   Dispose_PopUp(&CurveMenu);
  240.   Close_MenuPackage();
  241.   if (OpenBits & WINDOW)     CloseWindow(Window);
  242.   if (OpenBits & SCREEN)     CloseScreen(Screen);
  243.   if (OpenBits & LAYERS)     CloseLibrary(LayersBase);
  244.   if (OpenBits & GRAPHICS)   CloseLibrary(GfxBase);
  245.   if (OpenBits & INTUITION)  CloseLibrary(IntuitionBase);
  246. }
  247.  
  248.  
  249.